blas1.cpp